function [a,len]=heap_create(a,len)
% create heap
for n=floor(len/2):-1:1
    a=heap_adjust(a,n,len);
end 
   
